Dr. Windows 3/dr win3.zip/dr win3/VISUALBA/BOZOL2.ZIP/VSET.BAS

BASIC Source File | 1994-02-08 | 2KB | 55 lines

SUB VSET (VAR$, Value$)
    VAR$=LTRIM$(RTRIM$(UCASE$(VAR$),ANY CHR$(32,0)),ANY CHR$(32,0))
        VALUE$=LTRIM$(RTRIM$(VALUE$))
                IF LEN(VAR$) THEN
                          ARRAY SCAN VAR$(1),COLLATE UCASE, =VAR$, TO i%
                        IF i% THEN
                            VALUE$(i%)=VALUE$
                        ELSE
                            INCR NextVar%
                                VALUE$(NextVar%)=VALUE$
                                VAR$(NextVar%)=VAR$
                        END IF
                END IF

END SUB


SUB VCLEAR (VAR$)
    VAR$=LTRIM$(RTRIM$(UCASE$(VAR$),ANY CHR$(32,0)),ANY CHR$(32,0))
                IF LEN(VAR$) THEN
                          ARRAY SCAN VAR$(1),COLLATE UCASE, =VAR$, TO i%
                        IF i% THEN
                                ARRAY DELETE VAR$(i%)
                                ARRAY DELETE VALUE$(i%)
                            DECR NextVar%
                        END IF
                END IF
END SUB


FUNCTION GetVar$ (VariableName$)
GetVar$="??"
VARIABLENAME$=LTRIM$(RTRIM$(UCASE$(VARIABLENAME$),ANY CHR$(32,0)),ANY CHR$(32,0))

IF LEN(VARIABLENAME$) THEN
    ARRAY SCAN VAR$(1),COLLATE UCASE, =VARIABLENAME$, TO i%
    IF i% THEN
         GetVar$=VALUE$(i%)
        ELSE
        For i%=1 TO NumberOfFields?
                        IF INSTR(DBS(i%).FieldName,VARIABLENAME$)=1 THEN
                      IF DBS(i%).FieldType="N" THEN
                        GetVar$=STR$(DBGetNField!((DBS(i%).FieldName),e%))
                  ELSE
                        GetVar$=rtrim$(DBGetCField$((DBS(i%).FieldName),e%))
                      END IF
                          EXIT FOR
                    END IF
                NEXT i%

    END IF
END IF

END FUNCTION